home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / CGIPERL / MACPERL / MSRCE418.HQX / Perl Source ƒ / Perl / missing.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-15  |  6.1 KB  |  341 lines
  1. /* $Header: tyrathect:Development:Perl::RCS:missing.c,v 1.2 1994/05/04 02:12:43 neeri Exp $
  2.  *
  3.  *    Copyright (c) 1991-1994 Matthias Neeracher
  4.  *
  5.  *    You may distribute under the terms of the Perl Artistic License,
  6.  *    as specified in the README file.
  7.  *
  8.  * $Log: missing.c,v $
  9.  * Revision 1.2  1994/05/04  02:12:43  neeri
  10.  * Added gmtime(), enabled utime(), reduced spinning.
  11.  *
  12.  * Revision 1.1  1994/03/01  23:38:17  neeri
  13.  * Initial revision
  14.  *
  15.  */
  16.  
  17. #define RESOLVE_MAC_CONFLICTS
  18.  
  19. #include "EXTERN.h"
  20. #include "perl.h"
  21.  
  22. #include <time.h>
  23.  
  24. #include <Folders.h>
  25. #include <Events.h>
  26. #include <OSUtils.h>
  27. #include <LowMem.h>
  28. #include <GUSI.h>
  29. #include <fp.h>
  30.  
  31. #if !defined(powerc) && !defined(__powerc)
  32. /* Allocate more stdio buffers */
  33.  
  34. FILE _iob[64] = {
  35.     0, nil, nil, nil, 0, _IOREAD,         0,
  36.     0, nil, nil, nil, 0, _IOWRT,          1,
  37.     0, nil, nil, nil, 0, _IOWRT+_IOLBF,    2
  38. };
  39.     
  40. FILE * _lastbuf = _iob + 64;
  41. #endif
  42.  
  43. /* Calls that don't exist on the mac */
  44.  
  45. /* Borrowed from msdos.c
  46.  * Just pretend that everyone is a superuser
  47.  */
  48. #define ROOT_UID    0
  49. #define ROOT_GID    0
  50. int
  51. getuid(void)
  52. {
  53.     return ROOT_UID;
  54. }
  55.  
  56. int
  57. geteuid(void)
  58. {
  59.     return ROOT_UID;
  60. }
  61.  
  62. int
  63. getgid(void)
  64. {
  65.     return ROOT_GID;
  66. }
  67.  
  68. int
  69. getegid(void)
  70. {
  71.     return ROOT_GID;
  72. }
  73.  
  74. int
  75. setuid(int uid)
  76. { 
  77.     return (uid==ROOT_UID?0:-1);
  78. }
  79.  
  80. int
  81. setgid(int gid)
  82. { 
  83.     return (gid==ROOT_GID?0:-1); 
  84. }
  85.  
  86. execv()
  87. {
  88.     fatal("execv() not implemented on the Macintosh");
  89. }
  90.  
  91. execvp()
  92. {
  93.     fatal("execvp() not implemented on the Macintosh");
  94. }
  95.  
  96. kill()
  97. {
  98.     fatal("kill() not implemented on the Macintosh");
  99. }
  100.  
  101. sleep(int seconds)
  102. {
  103.     long    ticks    =    TickCount() + seconds*60;
  104.     
  105.     while (TickCount() < ticks)
  106.         SpinMacCursor();
  107. }
  108.  
  109. do_aspawn()
  110. {
  111.     fatal("do_aspawn() not implemented on the Macintosh");
  112. }
  113.  
  114. do_spawn()
  115. {
  116.     fatal("do_spawn() not implemented on the Macintosh");
  117. }
  118.  
  119. char **environ;
  120. extern int StandAlone;
  121.  
  122. char ** init_env(char ** env)
  123. {
  124.     int        envcnt    =    0;
  125.     int        envsize    =    0;
  126.     int        varlen;
  127.     char *    envpool;
  128.     FILE *    envfile    =    0;
  129.     
  130.     for (envcnt = 0; env[envcnt]; envcnt++)    {
  131.         varlen    = strlen(env[envcnt]);
  132.         envsize    +=    varlen+strlen(env[envcnt]+varlen+1)+2;
  133.     }
  134.     
  135.     environ = (char **)     malloc((envcnt+1)*sizeof(char *));
  136.     envpool = (char *)     malloc(envsize);
  137.     
  138.     for (envcnt = 0; env[envcnt]; envcnt++)    {
  139.         environ[envcnt]     = envpool;
  140.         varlen                = strlen(env[envcnt]);
  141.         strcpy(envpool, env[envcnt]);
  142.         envpool              += varlen+1;
  143.         envpool[-1]            = '=';
  144.         strcpy(envpool, env[envcnt]+varlen+1);
  145.         envpool              += strlen(env[envcnt]+varlen+1)+1;
  146.     }
  147.  
  148.     environ[envcnt] = 0;
  149.     
  150.     return environ;
  151. }    
  152.  
  153. typedef struct PD {
  154.     struct PD *    next;
  155.     FILE *        tempFile;
  156.     FSSpec        pipeFile;
  157.     char *        execute;
  158.     long            status;
  159. } PipeDescr, *PipeDescrPtr;
  160.  
  161. static PipeDescrPtr    pipes        =    nil;
  162. static Boolean            sweeper    =    false;
  163.  
  164. void sweep()
  165. {
  166.     while (pipes)
  167.         mypclose(pipes->tempFile);
  168.     sweeper = false;
  169. }
  170.  
  171. FILE * mypopen(char * command, char * mode)
  172. {
  173.     PipeDescrPtr    pipe;
  174.     
  175.     if (!strcmp(command, "-"))
  176.         fatal("Implicit fork() on a Mac? No forking chance");
  177.         
  178.     New(666, pipe, 1, PipeDescr);
  179.     
  180.     if (!pipe)
  181.         return NULL;
  182.         
  183.     if (FSpMakeTempFile(&pipe->pipeFile))
  184.         goto failed;
  185.     pipe->execute    =    nil;
  186.     
  187.     switch(*mode)    {
  188.     case 'r':
  189.         /* Ugh ! A hardcoded command  ! */
  190.         
  191.         if (!strcmp(command, "pwd") || !strcmp(command, "directory") || !strcmp(command, "Directory")) {
  192.             char curdir[256];
  193.             
  194.             if (!(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "w")))
  195.                 goto delete;
  196.             if (!getcwd(curdir, 256)) 
  197.                 goto delete;
  198.             
  199.             fprintf(pipe->tempFile, "%s\n", curdir);
  200.             fclose(pipe->tempFile);
  201.         } else if (!strcmp(command, "hostname")) {
  202.             char curhostname[256];
  203.             
  204.             if (!(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "w")))
  205.                 goto delete;
  206.             if (gethostname(curhostname, 256)) 
  207.                 goto delete;
  208.             
  209.             fprintf(pipe->tempFile, "%s\n", curhostname);
  210.             fclose(pipe->tempFile);
  211.         } else if (SubLaunch(command, nil, &pipe->pipeFile, &pipe->pipeFile, &pipe->status))
  212.             goto delete;
  213.             
  214.         if (!(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "r")))
  215.             goto delete;
  216.         break;
  217.     case 'w':
  218.         New(667, pipe->execute, strlen(command)+1, char);
  219.         if (!pipe->execute || !(pipe->tempFile    = fopen(FSp2FullPath(&pipe->pipeFile), "w")))
  220.             goto delete;
  221.         strcpy(pipe->execute, command);
  222.         break;
  223.     }
  224.     
  225.     pipe->next    =    pipes;
  226.     pipes            =    pipe;
  227.     
  228.     if (!sweeper)    {
  229.         atexit(sweep);
  230.         sweeper    =    true;
  231.     }
  232.  
  233.     return pipe->tempFile;
  234. delete:
  235.     if (pipe->execute)
  236.         Safefree(pipe->execute);
  237.     HDelete(pipe->pipeFile.vRefNum, pipe->pipeFile.parID, pipe->pipeFile.name);
  238. failed:
  239.     Safefree(pipe);
  240.     
  241.     return NULL;
  242. }
  243.  
  244. int mypclose(FILE *    f)
  245. {
  246.     OSErr                err;
  247.     PipeDescrPtr *    prev;
  248.     PipeDescrPtr    pipe;
  249.     
  250.     for (prev = (PipeDescrPtr *) &pipes; pipe = *prev; prev = &pipe->next)
  251.         if (pipe->tempFile == f)
  252.             break;
  253.     
  254.     if (!pipe)
  255.         return -1;
  256.     
  257.     *prev = pipe->next;
  258.     
  259.     fclose(f);
  260.     
  261.     if (pipe->execute)
  262.         err = SubLaunch(pipe->execute, &pipe->pipeFile, nil, nil, &pipe->status);
  263.     else
  264.         err = noErr;
  265.         
  266.     HDelete(pipe->pipeFile.vRefNum, pipe->pipeFile.parID, pipe->pipeFile.name);
  267.     if (pipe->execute)
  268.         Safefree(pipe->execute);
  269.     Safefree(pipe);
  270.     
  271.     return err? -1 : (int) pipe->status;    
  272. }
  273.  
  274. void SpinMacCursor()
  275. {
  276.     static long lastSpin = 0;
  277.     
  278.     if (LMGetTicks() - lastSpin < 1)
  279.         return;
  280.         
  281.     lastSpin = LMGetTicks();
  282.         
  283.     (GUSIGetSpin())(SP_AUTO_SPIN, 1);
  284. }
  285.  
  286. struct tm * gmtime(const time_t * timer)
  287. {
  288.     MachineLocation     loc;
  289.     struct tm *            swatch;
  290.     long                    delta;
  291.     time_t                rolex;
  292.     
  293.     ReadLocation(&loc);
  294.     
  295.     if (!loc.latitude && !loc.longitude)
  296.         return localtime(timer);    /* This is incorrect unless you live in Greenwich */
  297.     
  298.     delta = loc.u.gmtDelta & 0xFFFFFF;
  299.     
  300.     if (delta & 0x800000)
  301.         delta = (long) ((unsigned long) delta | 0xFF000000);
  302.         
  303.     rolex = (unsigned long) ((long) *timer - delta);
  304.     
  305.     swatch = localtime(&rolex);
  306.     
  307.     swatch->tm_isdst = (loc.u.dlsDelta & 0x80) != 0;
  308.     
  309.     return swatch;
  310.  }
  311.  
  312. void mac_times(struct tms * t)
  313. {
  314.     t->tms_utime = clock() - gStartClock;
  315.     t->tms_stime = 0;
  316.     t->tms_cutime = 0;
  317.     t->tms_cstime = 0;
  318. }
  319.  
  320. #undef atof
  321.  
  322. double mac_atof(const char * nptr)
  323. {
  324.     /* The Mac returns NaN(17) on undefined strings, which is not acceptable
  325.        for Perl
  326.     */
  327.     double res = atof(nptr);
  328.     
  329.     if (isnan(res) /* This doesn't work: && res == nan("17") */)
  330.         return 0.0;
  331.     else
  332.         return res;
  333. }
  334.  
  335. void reinit_missing()
  336. {
  337.     environ         =    nil;
  338.     pipes            =    nil;
  339. }
  340.  
  341.